home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / sort2.zip / LCASE.FUN < prev    next >
Text File  |  1993-01-04  |  346b  |  9 lines
  1. function lcase(instring:string):string;
  2. { returns a string with all the uppercase letters set to lowercase. }
  3. { Copyright 1988,1989, by J. W. Rider }
  4.  
  5. var i: integer;
  6. begin for i:=1 to length(instring) do if instring[i] in ['A'..'Z']
  7.    then instring[i]:=chr(ord(instring[i])-ord('A')+ord('a'));
  8. lcase:=instring; end; { function lcase }
  9.